MacWorld Secrets (4th Edition)/Mac Secrets CD 4th Ed.toast.sit/Mac Secrets CD 4th Ed.toast/Apple Advanced Technologies/Apple Speech Technologies 1.5/US Capital Quiz Demo/US Capital Quiz/US Capital Quiz.dxr/00001_Main.ls

Text File | 1996-03-22 | 6.2 KB | 272 lines

global SpeechObj, SpeechErr, gListening, gStatusMsg, MainLM, CapitalLM, kStartQuiz, kMapChannel, kWaveChannel, gWaveState

on startMovie
  cursor(4)
  set kWaveChannel to 3
  set kStartQuiz to 4
  set kMapChannel to 6
  set the cursor of sprite 5 to [34, 35]
  put "Starting Up" into field "Status"
  set gListening to 0
  set the cpuHogTicks to 1
  puppetSprite(kWaveChannel, 1)
  puppetSprite(kStartQuiz, 1)
  puppetSprite(kMapChannel, 1)
  updateStage()
  if existsXtra("SpeechXtra") = 0 then
    openXLib("SpeechXtra")
    if existsXtra("SpeechXtra") = 0 then
      alert("Unable to load the Speech Xtra. Make sure Speech Recognition is installed.")
      quit()
    end if
  end if
  if objectp(SpeechObj) then
    set SpeechObj to 0
  end if
  set SpeechObj to new(xtra("SpeechXtra"), birth(script "aCallBack"), 2)
  set result to value(SpeechObj)
  if result < 0 then
    if SpeechErr = -5551 then
      alert("This demo requires Speech Recognition extension version 1.2.1 or later.")
    else
      if SpeechErr = -5132 then
        alert("Unable to detect the microphone." & RETURN & RETURN & "Please make sure the microphone is plugged in and try again.")
      else
        if SpeechErr = -108 then
          alert("There is not enough memory to create the Speech Xtra." & RETURN & RETURN & "Try decreasing the application's memory requirements.")
        else
          alert("Unable to create the Speech Xtra.")
        end if
      end if
    end if
    quit()
  else
    set MainLM to createLM("<Main>", field "Lexicon")
    set CapitalLM to birth(script "aLanguage", "<Capital>")
    mAddItems(CapitalLM, field "States", 2)
    mAddPhrase(MainLM, "<Capital>", 13)
    mRelease(CapitalLM)
    mSetLanguage(MainLM)
    mRelease(MainLM)
  end if
  cursor(-1)
  put " " into field "Status"
  updateStage()
end

on idle
  if gListening then
    showStatus()
  end if
end

on showStatus
  set status to mStatus(SpeechObj)
  if status = 1 then
    cursor(-1)
    put gStatusMsg into field "Status"
  else
    if status = 2 then
      animateWave()
    end if
  end if
  updateStage()
end

on stopMovie
  stopListening()
  if objectp(SpeechObj) then
    set SpeechObj to 0
  end if
  puppetSprite(kWaveChannel, 0)
  puppetSprite(kMapChannel, 0)
  puppetSprite(kStartQuiz, 0)
  closeXLib()
  clearGlobals()
end

on createLM lmName, textField
  if objectp(SpeechObj) then
    set tmpLM to birth(script "aLanguage", lmName)
    mAddField(tmpLM, textField)
  end if
  return tmpLM
end

on startListening
  global gState
  if objectp(SpeechObj) then
    if mGetProperty(SpeechObj, "lkmd") = 1 then
      set gStatusMsg to "Push-To-Talk"
    else
      set gStatusMsg to "Talk Now"
    end if
    mStartListening(SpeechObj)
    set gListening to 1
    set the castNum of sprite kStartQuiz to the number of member "stop.pic"
    set gWaveState to 2
  end if
  set gState to randomItem(field "States")
  set gAttempt to 0
  askQuestion()
  updateStage()
end

on stopListening
  if objectp(SpeechObj) then
    if gListening then
      mStopListening(SpeechObj)
      set gListening to 0
      set the castNum of sprite kStartQuiz to the number of member "start.pic"
      set the castNum of sprite 3 to the number of member "logo2.pic"
    end if
  end if
  cursor(-1)
  showMap("United States.PIC")
  put " " into field "Status"
  set gStatusMsg to " "
  updateStage()
end

on toggleListening
  if gListening then
    stopListening()
  else
    startListening()
  end if
end

on doRecognize phrase, phraseID
  global gState, gAttempt
  set firstItem to item 1 of phraseID
  if firstItem = 1 then
    stopListening()
  else
    if firstItem = 2 then
      quit()
    else
      if firstItem = 13 then
        if item 2 of gState = phrase then
          sayIt("Correct")
          set gState to randomItem(field "States")
          set gAttempt to 0
          askQuestion()
        else
          checkAttempt()
          askQuestion()
        end if
      else
        if firstItem = -1 then
          checkAttempt()
        else
          if firstItem = 3 then
            giveAnswer()
          end if
          if firstItem <> 5 then
            set gState to randomItem(field "States")
            set gAttempt to 0
          end if
        end if
        askQuestion()
      end if
    end if
  end if
end

on askQuestion
  global gState, gAttempt
  if gListening then
    mStopListening(SpeechObj)
  end if
  sayIt("What Capital")
  set stateName to item 1 of gState
  sayIt(stateName)
  showMap(stateName & ".PIC")
  updateStage()
  if gListening then
    mStartListening(SpeechObj)
  end if
end

on giveAnswer
  global gState, gAttempt
  if gListening then
    mStopListening(SpeechObj)
  end if
  set stateName to item 1 of gState
  set capitalName to item 2 of gState
  sayIt("Capital of")
  sayIt(stateName)
  sayIt("is")
  sayIt(capitalName)
  if gListening then
    mStartListening(SpeechObj)
  end if
end

on checkAttempt
  global gState, gAttempt
  set gAttempt to gAttempt + 1
  if gAttempt = 3 then
    giveAnswer()
    set gState to randomItem(field "States")
    set gAttempt to 0
  else
    sayIt("Try Again")
  end if
end

on sayIt theText
  set sndName to theText & ".AIFF"
  preLoadCast(the number of member sndName)
  puppetSound(sndName)
  updateStage()
  repeat while 1 = soundBusy(1)
    if (the ticks mod 5) = 0 then
      animateWave()
    end if
  end repeat
  puppetSound(0)
  updateStage()
end

on randomItem textField
  global gState
  set lineCount to the number of lines in textField
  repeat while 1
    set theItem to line random(lineCount) of textField
    if theItem <> gState then
      exit repeat
    end if
  end repeat
  return theItem
end

on sayAll textField, theItem
  repeat with index = 1 to the number of lines in textField
    sayIt(item theItem of line index of textField)
  end repeat
end

on animateWave
  global gWaveState
  put "Don't Talk" into field "Status"
  set the castNum of sprite 3 to gWaveState + 245
  updateStage()
  set gWaveState to (gWaveState mod 3) + 1
end

on showMap whichMap
  set the castNum of sprite kMapChannel to the number of member whichMap
end

on existsXtra whichXtra
  set numXtras to the number of xtras
  repeat with index = 1 to numXtras
    if the name of xtra(index) = whichXtra then
      return 1
    end if
  end repeat
  return 0
end